home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / imagefxv2.1a.lha / ImageFX / Rexx / BustANIM.ifx < prev    next >
Text File  |  1996-03-02  |  840b  |  50 lines
  1. /*
  2.  * $VER: BustANIM 2.0.0 (22.7.94)
  3.  *
  4.  * Arexx program for the ImageFX image processing system.
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  * This program will break up an ANIM into a series of colormapped
  8.  * image files.
  9.  *
  10.  */
  11.  
  12. OPTIONS RESULTS
  13.  
  14. GetPrefs LoadPath
  15. path = result
  16.  
  17. RequestFile '"Select Animation:"' path PATTERN '#?.anim#?'
  18. IF rc ~= 0 THEN EXIT
  19.  
  20. filename = result
  21. fileonly = FILEREQ.FILE
  22.  
  23. RequestFile '"Select Output Path For Frames:"' path DIRONLY
  24. IF rc ~= 0 THEN EXIT
  25.  
  26. outpath = result
  27. IF RIGHT(outpath,1) ~= ':' THEN DO
  28.    outpath = outpath || '/'
  29.    END
  30.  
  31. framenum = 1
  32.  
  33. DO FOREVER
  34.  
  35.    Message 'Busting frame' framenum
  36.  
  37.    LoadMapped filename framenum
  38.    IF rc ~= 0 THEN LEAVE
  39.  
  40.    SaveRenderedAs ILBM outpath||fileonly||'.'||RIGHT('00000'||framenum,5)
  41.    IF rc ~= 0 THEN LEAVE
  42.  
  43.    framenum = framenum + 1
  44.  
  45.    END
  46.  
  47. KillMapped
  48.  
  49. EXIT
  50.